SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCMOVI_CAJA_U02]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS                 --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---M«dulo               : Empresa                    --*/  
/*---Programa             : Actualizaci½n Cabecera     --*/  
/*---                       Movimiento Caja(Ingresos)  --*/  
/*---Script               : tcmovi_c.sql               --*/  
/*---Nombre SP            : SP_TCMOVI_CAJA_U02         --*/  
/*---Desarrollado por     : Javier Flores A.           --*/  
/*---Fecha Creaci«n       : 08/07/1999                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi«n              : 7.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     :  Carlos R Marquez E        --*/  
/*---Fecha Modificaci«n   :  29/05/2001                --*/   
/*---Detalle Modificaci«n :  Considerac Docs en Cartera--*/  
/*-------------------------------------------------------*/ 
/*-------------------------------------------------------*/
/*---Modificado 3 por     :  Carlos R Marquez E        --*/
/*---Fecha ModIficacion   :  04/07/2007                --*/
/*---Detalle Modificacion :  Graba Tipo de Cambio Exterior--*/
/*-------------------------------------------------------*/ 
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TCMOVI_CAJA_U02                      --*/  
/*---Grant Execute on SP_TCMOVI_CAJA_U02 to public     --*/   
/*---SP_TCMOVI_CAJA_U02                                --*/  
/*-------------------------------------------------------*/  
 @ISCO_EMPR   TD_VC_002,   
 @ISCO_USUA_MODI  TD_VC_008_USUA,  
 @ISCO_CAJA   TD_VC_008,   
 @ISAA_CAJA   TD_VC_004,   
 @ISMM_CAJA   TD_VC_002,   
 @ISTI_MOVI   TD_VC_001,    
 @ISNU_COMP_CAJA  TD_VC_008,   
 @IDFE_OPER   TD_DT_001,   
 @ISCO_TIPO_OPER  TD_VC_003,   
 @ISCO_SUBR   TD_VC_003,   
 @INFA_TIPO_CAMB  TD_NU_015_006,   
 @INFA_CAMB_EXTR  TD_NU_015_006,   
 @INIM_MOVI   TD_NU_016_004,   
 @ISTI_ENTI   TD_VC_001,  
 @ISCO_ENTI   TD_VC_020,   
 @ISDE_NOMB_ORDE  TD_VC_100,   
 @ISDE_OBSE   TD_VC_100,  
 @ISCO_ENTR_REND  TD_VC_004,  
 @ISCO_UNID_CNTB  TD_VC_003,  
 @IDFE_DIFE   TD_DT_001,   
 @ISNU_SOLI             TD_VC_010,
 @ISTI_DOCU_ENRE        TD_VC_003,    
 @ISNU_DOCU_ENRE        TD_VC_020
	As
Declare    
 @VSST_AUXI_0004_NUEV TD_VC_001,    
 @VSTI_SITU     TD_VC_003  
  
Begin Tran SP_TCMOVI_CAJA_U02
  
  
	/***---Obtiene Flag de Cart de Clientes para el Nuevo Tipo de Operacion  ---***/   
	Select @VSST_AUXI_0004_NUEV = ST_AUXI_0004  
	From  TTTIPO_OPER  
	Where CO_EMPR = @ISCO_EMPR  
	And CO_TIPO_OPER = @ISCO_TIPO_OPER  
	
	/***---Seteo TI_SITU  en base al Flag del Tipo de Operacion  ---***/   
	Select  @VSTI_SITU = ( SubString ('CAR', 1, PatIndex ('S', @VSST_AUXI_0004_NUEV )*3) + SubString ('ACT', 1, 
PatIndex ('N', @VSST_AUXI_0004_NUEV )*3) )  
	
	If Rtrim(@ISCO_ENTR_REND) = ''  
		Select @ISCO_ENTR_REND = NULL  
	
	Update TCMOVI_CAJA
	Set     
		CO_SUBR = @ISCO_SUBR,  
		FA_TIPO_CAMB = @INFA_TIPO_CAMB,  
		FA_CAMB_EXTR = @INFA_CAMB_EXTR,
		IM_MOVI = @INIM_MOVI,  
		FE_OPER = @IDFE_OPER,  
		TI_ENTI = @ISTI_ENTI,  
		CO_ENTI = @ISCO_ENTI,        
		DE_ENTI = @ISDE_NOMB_ORDE,  
		DE_OBSE = @ISDE_OBSE,   
		
		CO_ENTR_REND = @ISCO_ENTR_REND,  
		CO_UNID_CONC = @ISCO_UNID_CNTB,  
		TI_DOCU_ENRE = @ISTI_DOCU_ENRE,
		NU_DOCU_ENRE = @ISNU_DOCU_ENRE,
		TI_SITU = @VSTI_SITU,   
		FE_DIFE = @IDFE_DIFE,   
		CO_USUA_MODI = @ISCO_USUA_MODI,  
		FE_USUA_MODI = getdate()  
	Where  CO_EMPR = @ISCO_EMPR   
	And CO_CAJA = @ISCO_CAJA  
	And AA_CAJA = @ISAA_CAJA  
	And MM_CAJA = @ISMM_CAJA   
	And TI_MOVI = 'I'   
	And NU_COMP_CAJA = @ISNU_COMP_CAJA  
	
	If @@error <> 0  
	Begin  
		Rollback Tran SP_TCMOVI_CAJA_U02
		Return  
	End  
	
	
	/* Actualizando status de la solicitud*/  
	UPDATE  TMSOLI_CABA   
	SET  TI_SITU = 'LIQ',   
		CO_USUA_MODI = @ISCO_USUA_MODI,   
		FE_LIQU = @IDFE_OPER,  
		FE_USUA_MODI = getdate()  
	WHERE   CO_EMPR = @ISCO_EMPR  
	AND NU_SOLI = @ISNU_SOLI  
	
	If @@error <> 0  
	Begin  
		Rollback Tran SP_TCMOVI_CAJA_U02
		Return  
	End  
	
	Update TCMOVI_CAJA  
	Set   ST_CONT = 'N',  
		CO_USUA_MODI = @ISCO_USUA_MODI,  
		FE_USUA_MODI = getdate()  
	Where  CO_EMPR = @ISCO_EMPR   
	And CO_CAJA = @ISCO_CAJA  
	And AA_CAJA = @ISAA_CAJA  
	And MM_CAJA = @ISMM_CAJA   
	And TI_MOVI = 'I'   
	And NU_COMP_CAJA = @ISNU_COMP_CAJA  
	
	If @@error <> 0  
	Begin  
		Rollback Tran SP_TCMOVI_CAJA_U02
		Return  
	End  
  
Commit Tran SP_TCMOVI_CAJA_U02
/*----------------------- Fin ---------------------------*/


GO
